T:Type, f:(TT), R:(TT(T List)).
(x:T. R(x,x,[x]))
 (L:(T List), x, y, z:T. (x = f(y))  ((x = y))  R(y,z,[y / L])  R(x,z,[x; y / L]))
 {L:(T List), x, y:T. x=f*(y) via L  R(x,y,L)} 

latex

Definitions	t  T, type List, A List, s = t, x:AB(x), x:A. B(x), [car / cdr], y=f*(x) via L, Type, f(a), x(s1,s2,s3), A, , a < b, x:A  B(x), P & Q, #$n, , hd(l), ||as||, Void, P  Q, False, A  B, i  j , [], left + right, P  Q, Dec(P), b, x:A. B(x), b | a, a ~ b, a  b, a <p b, a < b, A c B, x f y, xL. P(x), (xL.P(x)), {T}, P  Q, <a, b>,
Lemmas	non neg length, fun-path-cons, decidable lt, not wf, hd wf, length wf1, fun-path wf